
          16.  ⥬
							  13.09.90

      ⥬ ।祭    ᯥ祭  ᮢ 
।⢠ 䠩 㯠,  ⠪        ࠢ 
ࠡ⮩ ⥬   .  ⥬ ᮤন 
᫥騥 :

File_Server       ⠭	ᮢ    ⨯  RT11,
                 ᯥ稢   樨        ⠫     
                 뢮;

File_Manager     ⥫ ࢨ ᮢ,  
                   ᯥ  짮⥫᪨    
                   䥩ᮬ      ࠡ      譨 
                 ⥫ﬨ ᪮ ⨯;

File_Comander    䥩,      ண  
                 믮 樨  䠩, ᠬ  ..

       ࠧ頥  䠩 Fil.Prc.   ⥫쭠
ଠ,  易    ।  ᯮ㥬   ॣ஢, 
ப ⥫ ࢨ ᮢ  .. ᮤন  
䠩 Filmac.mac.

      File_Server ࠢ ।⢮  ॣ:

FilCSR	   174060	 ; ॣ ࠢ

                 (    殢) 
᫥騩 :

     mov  #adr,     @#FilCSR  ;   
     ...
adr: .Blkw     X	      ;   

      File_Manager ࠡ뢠 (㦨)  ॣ:

FMCSR	   174062	 ; ॣ ࠢ
FMKCSR	   174064	 ; ॣ    

           ,   ࠡ 
 ॣ஬ FilCSR.

      File_Comander 㦨  ॣ:

FCBUF	   174066	 ; ॣ    

     ணࠬ     , ᪮ 
 ࠢ  .

	  16.1.   ᮬ File_Server

       ࠡ    File_Server    ⥪   ணࠬ	 (
짮⥫)  室    䠩  Filmac.mac     맢
ப .FILES, ਬ:

	  ...
	  .include  "Filmac.mac"
	  ...
	  .FILES
	  ...

ப  .FILES  ᯥ稢    ⠭   
ᮢ  ⨯ RT11  믮 ᫥騥 㭪樨:
      ᪨ 樠  樨 EMT;
      ᮤন  ணࠬ,	ࠡ뢠	EMTĨ樨	 
       "࠭᫨"   File_Server.

     ᯥ稢  ᯮ짮 ᫥騥 ⠭ 
⥬ ப  ⨯ RT11:

.Close	  Chan
             뢠   ᢮      ᯮ짮 
                㣨 

.Cstat	  Area,Chan,Addr
               ଠ   ﭨ  । 
               

.Delete   Area,Chan,Dblk
	(*)  㤠 䠩  㪠 ன⢥

.Enter	  Area,Chan,Dblk,Len
	(*)  १ࢨ    	㪠  ன⢥  
              ᮧ  䠩

.Exit
             蠥  짮⥫ (⥪騩 )

.Lookup   Area,Chan,Dblk
	(*)  뢠 騩 䠩    뢮

.Print	  Addr
             뢮 ⥪⮢ ப    ⥪⮢ 
	      ᯫ ⨯ VT100

.Purge	  Chan
             ᢮ 㪠   (  ᫥饣   
              짮)

.Readw	  Area,Chan,Buf,Wcnt,Blk
             뢠   㪠     ன⢠ 
              (䠩)          頥  ࠢ 
               ᫥ 砭 樨

.Rename   Area,Chan,Dblk
	(*)  믮 २ 䠩

.Spfun	  Area,Chan,Func,Buf,Wcnt,Blk
             믮  ᯥ樠  㭪樨    ன  ( 
              㪠 )

.Wait	  Chan
              襭 権 뢮   㪠 
               ;  筮  ᯮ    । 
              ᢮   

.Writw	  Area,Chan,Buf,Wcnt,Blk
             뢠    㪠       
                ன⢮ (䠩)

(*)  祭 , 騥 ᮡ   ᯮ짮 
ࠢ    ;  ⢮  ஡  砥     ⮬,    
File_Server    "᪨  ",  ᯮ㥬
᪮쪨  짮⥫᪨   ᠬ;      뤥 
(।)  ᠬ  ᪨  (      㯫 
ᮢ);   ⮬      ⬥祭	   㬥   Chan
; ᫥ 믮 ,  ᫨    믮   
訡,     ᮬ 52 (㤠 筮   騩 
 訡) 㤥 室    ,  뤥  ᮬ 
File_Server;     ᫥ 㪠뢠    ᫥
  뢮;      頥  ⮫쪮    
ᮢ .Lookup    .Enter;    ⠫  ⬥祭  ᮢ
           ᫠,   ᪮    
ᯮ ⮫쪮  믮 ᮡ⢥ ,  ᫥  
ᯮ짮 ᢮.

      ⠭⭮    䨪樨  権  "⥭", 
""  "ᯥ樠쭠 㭪".   䨪樨 (  
襭,      襭,    맮   ணࠬ 
襭) ࠡ뢠 ᮬ File_Server    	"
", .. ᨭ஭.

	  15.2.   ᮬ File_Manager

      ᯮ짮   ⥪ ணࠬ ᫥  
䠩 । Filmac.mac.  ⮬ 䠩  ᮤঠ  ।
 ᮢ, ࠡ뢠 ᮬ File_Manager.

     饭      믮   ⥬       
ࠢ饣    	 ॣ   FMCSR   (㦨   
ᮬ).  ࠢ騩      ࠧ      ᭮ 
࠭⢥  ,     믮   饭.    
ࠢ饣    ⨯ .

       ࢮ  ᫮  ࠢ饣    ।   饭    
File_Manager 室  .

     ᫨  ப  㬥  ய饭,    ᮮ⢥ 
祩  ⠡ ADR ப   㤥.

     ப "" ॣ r0:	᫥  	r0  ᥣ
ᮤন  砫 ⠡ area, ..  祩,	  ன
ࠧ頥  .

        ᪮      䨧᪮   ன    
᪮  (  0):

FilMou	  Adr,Ldev,Pdev,Sblk,Leng,FIL,NAM,TYP
      Ŀ
Adr Ĵ   0     Ī 
      Ĵ
        Ldev   ī᪮    RADIX50
      Ĵ
        Pdev   䨧᪮    ன⢠   RADIX50
      Ĵ
        Sblk  
      Ĵ
        Leng  
      Ĵ
                 ᯮ
      ĴĿ
        FIL    
      Ĵ     ⨯ 䠩,   ᪨
        NAM    Ĵ᪮;   祭 ᪮
      Ĵ     ᫮ ⠡  ᯮ
        TYP    
      

LDEV	   ᪮ , ஥  㤥  祭  䨧᪮
	    ன  ᪮ ,   RADIX50

PDEV	   䨧᪮       ன⢠,  ஬  㤥
            祭 ᪮        ஬  室 
	    ᪨ ,   RADIX50

SBLK	     (  䨧᪮  ன⢥),    ண
            ࠧ頥 ᪨ ,  0,  ᫨  䨧᪮ 
            ன 砥 ᪮ 

LENG	    ࠧ  ᪮  ᪠    ,    0,  ᫨
            䨧᪮ ன 砥 ᪮ 

FIL,NAM,TYP    ⨯ 䠩,   ᪨ ᪮

᫨   㤥 믮 ħ 㦥 訡,  ࢮ 
᫮ ࠢ饣  㤥 ᮤঠ ⥫ :

     1      䨧᪮    ன⢠
     2    㪠 䨧᪮ ன⢮ 
     3    ⠡ ᪨  ९

     ᬮ  ᯨ᪠  ᮮ⢥⢨  ᪨     䨧᪨ 
ன⢠  ᪨ ᪠ (  2):

FilSho	  Adr
      Ŀ
Adr Ĵ***  2  Ī 
      Ĵ
        Ldev   ī᪮    RADIX50
      Ĵ
        Pdev   䨧᪮    ன⢠   RADIX50
      Ĵ
        Sblk  
      Ĵ
        Leng  
      ĴĿ
        DEV    
      Ĵ 
        FIL      ᯥ䨪  䠩,    ᪨
      Ĵ Ĵ᪮;   ᪮   ᫮
        NAM      ⠡  ᯮ
      Ĵ 
        TYP    
      

       頥   ⠡.    ⠡ 
(祭  ***)  	ࢮ	饭    File_Manager  
ᮤঠ 0. ᫥ 믮      㤥  ᮤঠ 
㫥 祭, ᫨ ⠡  (adr)    ଠ樥  
᪮   ᪮ ᪥. ᫨   ᮤন  0,   
 砥,   ⠡ ᪨   ᪮ ᬮ७. 
 ࠧ ᫥⥫쭮 믮  FilSho 
  । ᪨   ᪨.  ୮ 
(    ᠬ  ࢮ)  ᮢ        2   楫ᮮࠧ 
ᯮ짮  FILMAN (. ).

      ᯥ䨪樨 䠩     ᬮ 
⠫, ᨭ⠪᪨ ஫  ନ஢ ⠡ Dblk 
ᮢ ⨯ .Lookup, .Enter  .. (  4):

FilCsi	  Adr,Errst,Prost,Retst,Dext
      Ŀ
Adr Ĵ   4     Ī 
      Ĵ
       Errst   Ġ ப "ᮮ饭  訡"
      Ĵ
       Prost   Ġ ப "᪠"
      Ĵ
       Retst  
      Ĵ
       Dext     ⨯ 䠩  㬮砭   RADIX50
      ĴĿ
        DEV    
      Ĵ 
        FIL    
      Ĵ Ĵ頥 ᯥ䨪 䠩   RADIX50
        NAM    
      Ĵ 
        TYP    
      

ERRST	    ⥪⮢ ப, 뤠  ⢥  訡;
            㬥   0, ᫨    㦭  ᮮ饭   
            訡;

PROST	    ⥪⮢ ப, 뤠  ⢥ ᪠
            ; 㬥   0, ᫨ ᪠  㦭;

RETST	    ,   㤥 饭  
            ப; 㬥   0, ᫨   㦭;

DEXT	   ⨯ 䠩    㬮砭      RADIX50;  㬥
              0, ᫨  㦭 ᯮ짮 ⨯ 䠩  
            㬮砭;

᫨    ᯥ䨪樨  ன⢮    㪠뢠,     
㬮砭 㤥 ᯮ짮 ᪮  "DK".

 믮  ᮧ ᫥饥 :

       MXCLEN  26. ;ਭ   ᨬ

    Ŀ
    			       Ĵப  뢮 訡 
    Ĵ    ᪠
    			       Ĵ"" ப  
    


᫥⥫쭮 믮 :

     ) ᫨   ப 訡 (ERRST),       㤥
        뢥 ᮮ饭  訡;  ⨥       
        ਢ த ࠡ;

     ) ᫨   ப ᪠ (PROST),    㤥
        뢥 ᪠;

     )   ।஢  ப  (ᯥ䨪樨  䠩);   
	।஢	  ᯮ짮  	>,   <	 
	"";  襭    ப  	    "";
	⨥   "2"  뢠 ࠡ  	頥
        ࠢ 짮⥫᪮ :    ᯥ䨪樨 
        䠩  ⠡ 㤥 ᮤঠ 㫨;

                ⨯ 䠩  ᮤঠ ᯥ樠  ᨬ 
	       : "%"  砥   ᨬ;  "*"    砥
               ᫥⥫쭮  ᨬ; ᫨    䠩 
	       ய饭,   㤥 ஢  "*";
               ᫨     ⨯  䠩    㪠 
               ᨬ,    ⥫쭮    㤥  뢥 
               ᯨ᮪ 䠩, 㤮⢮   ; 
	        ⮬   ^  v  	ᬮ  
               騩 ᯨ᮪;
	      ⨥  "2"  ᬮ  
                ।㥬 ப;
	      ⨥  ""  ᬮ   ᪮
                 ⨯ ࠭ 䠩;
              ᫥ ⮣  த ।஢ ப.

     ) ᫥  襭    ப  ந     
        訡 ( ᨭ⠪᪨); ᫨ 訡 㦥,   
        뢮 ᮮ饭 "⠪᪠  訡";  ⨥   
          ਢ  த ࠡ  㭪 );

     ) ᫨  訡  ,    짮⥫᪮    㤥 
	। ᯥ䨪 䠩   RADIX50  (  ⠡),
        , ᫨      ,    㤥  ।   
         ப.

      ᯥ䨪樨 䠩  , ᨭ⠪᪨ ஫ 
 ନ஢ ⠡   ᮢ ⨯  .Lookup,  .Enter  
.. (  10):

FilSpc	  Adr,Errst,Prost,Retst,Dext
      Ŀ
Adr Ĵ  10     Ī 
      Ĵ
       Errst   Ġ ப "ᮮ饭  訡"
      Ĵ
       Prost   Ġ ப "᪠"
      Ĵ
       Retst  
      Ĵ
       Dext     ⨯ 䠩  㬮砭   RADIX50
      ĴĿ
        DEV    
      Ĵ 
        FIL    
      Ĵ Ĵ頥 ᯥ䨪 䠩   RADIX50
        NAM    
      Ĵ 
        TYP    
      

       祭  FilCsi: ⢥ ⫨稥
砥  ⮬,    ᬮ ⠫ 
 ⨬ ᯮ짮 ᨬ  "*"    "%"    ᯥ䨪樨
䠩.

      ᯥ䨪樨 䠩  , ᨭ⠪᪨ ஫ 
 ନ஢ ⠡   ᮢ ⨯  .Lookup,  .Enter  
.. (  12):

FilGtf	  Adr,Errst,Prost,Retst,Dext
      Ŀ
Adr Ĵ  12     Ī 
      Ĵ
       Errst   Ġ ப "ᮮ饭  訡"
      Ĵ
       Prost   Ġ ப "᪠"
      Ĵ
       Retst  
      Ĵ
       Dext     ⨯ 䠩  㬮砭   RADIX50
      ĴĿ
        DEV    
      Ĵ 
        FIL    
      Ĵ Ĵ頥 ᯥ䨪 䠩   RADIX50
        NAM    
      Ĵ 
        TYP    
      

       祭  FilCsi: ⢥ ⫨稥
砥    ⮬,            ᬮ 
⠫. ᯮ짮 ᨬ "*"  "%"   ᯥ䨪樨  䠩
ࠧ蠥:    ⠢ ᯥ䨪樨 䠩    
RADIX50 , ᫨ 㪠,  ⥪⮢ .

     뢮 ᮮ饭  訡  ᪠ (  6):

FilMes	  Adr,Errst,Prost
      Ŀ
Adr Ĵ   6     Ī 
      Ĵ
       Errst   Ġ ப "ᮮ饭  訡"
      Ĵ
       Prost   Ġ ப "᪠"
      

ERRST	    ⥪⮢ ப, 뤠  ⢥  訡;
            㬥   0, ᫨    㦭  ᮮ饭   
            訡;

PROST	    ⥪⮢ ப, 뤠  ⢥ ᪠
            ; 㬥   0, ᫨ ᪠  㦭.

᫥⥫쭮 믮 :

     ) ᫨   ப 訡 (ERRST),       㤥
        뢥 ᮮ饭  訡;  ⨥       
        ਢ த ࠡ;

     ) ᫨   ப ᪠ (PROST),    㤥
        뢥 ᪠; ⨥      ਢ   
        襭 믮 .

     ନ஢ ⠡ Dblk  ⥪⮢ ப   ᯥ䨪樨
䠩 (  8):

FilR50	  Adr,Ascst,Dext
      Ŀ
Adr Ĵ   8     Ī 
      Ĵ
       Ascst   Ġ ப, ᮤঠ饩 ᯥ䨪 䠩
      Ĵ
               ĭ ᯮ
      Ĵ
               ĭ ᯮ
      Ĵ
       Dext     ⨯ 䠩  㬮砭   RADIX50
      ĴĿ
        DEV    
      Ĵ 
        FIL    
      Ĵ Ĵ頥 ᯥ䨪 䠩   RADIX50
        NAM    
      Ĵ 
        TYP    
      

ASCST	    ⥪⮢ ப, ᮤঠ饩 ᯥ䨪  䠩
	     ଠ .asciz.

        File_Manager:

FILMAN	  Adr

        뫠	  ॣ    File_Manager
 ⠡. ப    ᫥騩 :

     .macro    FILMAN	 adr
	       mov  adr, @#FMCSR
	       nop
     .endm     FILMAN

	  16.3.   ᮬ File_Comander

      ⨢  ⨨ 樨  +. 
 ⮬  ࠭ ᢥ稢 ᫥饥 :
  Ŀ
   		       	⪠   믮
  ணࠬ㥬      	  2.
  㧨       
    ⥬         ६饭   믮  
    ᠬ	         ^  v	;  ⨥  
    䠩	        ""  믮  ࠭  
   ᪮      .
  ஢ ᪨ ᪳
  ⬥ ᪮ 磻᪳
  

a) " "
  㭪  ᢥ稢  "짮⥫᪮"   ,   ।⥫쭮 
⠭  䠩 FILMEN.MEN;	ࠧ	  ⥪⮢  䠩
  1  (..  ॢ  512  );  䠩  ᮤন 
᫥⥫쭮  ᠭ  㭪⮢  ;    㭪    
뢠 ᫥騬 ࠧ:

     பħ
     பĪ1
     பĪ2
     ...
 ࢠ ப 㤥 ᯮ짮   ⢥  㭪    ( 
㤥  ᢥ稢   );    ᫥   
ப   (      ᪮쪮);        ப    㤥 
뤠   RESPON    ᫥騩 ଠ:
    Ŀ
    YZப
    
     
        뤠 ப
     
      (஡)    ० 
      >	         ० 
	     <	       ࠧ " "
	     ^	       ८ࠧ ᫥騩 ᨬ  ࠢ騩

 짮⥫᪮   ⨢஢ ᨬ,     
樨  "SHIFT"+"CR";

 ਬ 䠩 FILMEN.MEN:

	  Assign HD DK
	  ) as hd dk
	  Macro FIL
	  ) mac fil
	  Macro COM
	  ) mac com
	  Macro MEN
	  ) mac men
	  Link Fil.Prc
	  ) lin fil/map/pro
	  ) men,com//
	  (>prun fil
	  Clean dk:
	  ) del *.bak/noq
	  )>sq dk:/noq

) "ணࠬ㥬 "
 㭪 ᢥ稢 㭪樮     (祭 
㭪樮   뢠  	䠩  FILKEY.KEY;  ࠧ
 ⥪⮢ 䠩   1 , ..  ॢ 512 
);

  㭪樮묨  蠬    1Ċ5;      , 
  ६    襩  "SHIFT",    
6Ċ10;

 䠩 ᮤন ᫥⥫쭮 ᠭ 㭪樮   
1Ċ10   ଠ,  䠩  짮⥫᪮  ; 
 㭪樮쭠  뢠 ᫥騬 ࠧ:

     பħ
     பĪ1
     பĪ2
     ...

 ࢠ ப 㤥 ᯮ짮   ⢥  㭪    ( 
㤥  ᢥ稢   );    ᫥   
ப (  ᪮쪮);  ப   ᮡ   
 ப  ணࠬ஢ ᮮ⢥饩  㭪樮쭮 
      KSTRIN;    ப    ᫥騩
ଠ:

    Ŀ
    YZப
    
     
       
        ப  ணࠬ஢
      (஡)    ० 
     	     >	         ० 
      ) ப  ᨬ <CR>
	     ( ப  ᨬ <CR>

   ப ᮡ ࠧ  ᨬ  "^":
᫥⥫쭮 "^^" ८ࠧ  "^", 	᫥⥫쭮
"^x" ( x  㪢)  ८ࠧ  ᮮ⢥騩 ࠢ騩
 (  037);

 ᯨ᮪ 㭪樮   ᢥ ᨬ,     
樨  "SHIFT"+"DEL";

 ਬ 䠩 FILKEY.KEY:

	       K1   Abort
	       ( ^
	       K2   Abort !!!
	       ( ^^
	       K3   Line feed
	       ( ^J
	       K4   Pause tt:
	       ( ^S
	       K5   Continue tt:
	       ( ^Q
	       K6    
	       ) map
	       K7   ᮪ ᮢ
	       ) ps
	       K8    
	       (>kill
	       K9    䠩
	       )>dir/new
	       K10  饭 䠩
	       )>dir/pro

) "㧨   :
  롮   㭪  ந室  १㧪  (୮ 
뢠) 䠩 FILMEN.MEN  FILKEY.KEY;  ᪥  䠩
  䠩 뢠    䠧  樠樨;  ᫨   
 ࠡ          䠩,       
ॣ㧨,  १᪠  䠩 .

) "  ⥬"
  롮  㭪   ᢥ稢  ⥬   
.

) "  ᠬ"
  롮  㭪   ᢥ稢 ᯨ᮪ ᮢ; 
    ᢥ稢    ,  ,  ਮ, 
ᯮ㥬   (noMAP  	砥,  	    
ᮡ⢥ ),  ⠪ ᯮ짮 ६ ;

  ࠭   믮 ᫥騥 樨:

        ᢥ   ;
        㤠 .

) "  䠩"
  롮  㭪 ᢥ稢   ᮬ:

	 Ŀ
	   ᪮ ன⢮ : 
	 			    
	 

  ⢥ 室  ᯥ䨪 ன⢠  㯯 
ᯥ䨪 䠩 (ᮤঠ ᨬ "*"   "%");  ᫨  
⮫쪮  ன⢮,      ᢥ      ⠫   䠩, 
ࠧ饭      ⮬   ன⢥;   ᫨       㯯 
ᯥ䨪,   㤥  뢥  ᯨ᮪  䠩,  㤮⢮饩 
 ᯥ䨪樨;

 ⪠  ।⠢           
"2";

 ᢥ   묨     "":

 ᫨   ᢥ祭 ᯨ᮪ 䠩,   믮 ᫥騥 
樨 (⨥  ᮮ⢥ ):
     K1    ⠭  䠩
     K2    ६ 䠩
     K3    ᪮஢ 䠩
     K4    㤠 䠩 (饭 䠩  㤠)
     K5    २ 䠩
     "BK"  "믮" 䠩
     <.>    䠩

     "믮" 䠩 砥 ᫥饥 ( 㪠 ⨯):
     .DSK  䠩 ᪮ ᪠  ᬮ  ⠫  
             ᪠
     .COM    䠩  	    	 䠩	
            믮  ࠢ ᪮ 
     .PRC  䠩          	믮
	    (筮 㤥 ࠡ⠭ 䠩 ⨯ .SAV)

     "祭()"  䠩   뤥         ᯥ樠 
     થ஬;    "ਣ୮";
     ᫨  "祭" 䠩  樨   蠬  K1,
     K2, K3  K4  믮  ᥬ 祭묨 䠩.

) " ᪮ "
    㭪    믮  ᢠ  ᪮ 
 䨧᪮ ன;

    롮    㭪  ᢥ稢       ᯨ᪮ 
 ᪨ 祭,  ⠪   ᮬ:
	 Ŀ
	 ᪮  ன⢠:
	 			    
	 
  ⢥ 室  ᪮  (13 ᨬ)  "";

 ᫥ ⮣  :
	 Ŀ
	   ᪮ ன⢮:  
	 			    
	 

  ⢥ 室   䨧᪮  ன⢮  (     
ᨬ, , ᫨ 室,  ன⢠);


 ᫥ ⮣   ᪮ ;

 室  ०  ᪨    "2".

) "஢ ᪨ "
    㭪    믮  ᢠ  ᪮ 
 ᪮  (⨯ 䠩 .DSK);

    롮    㭪  ᢥ稢       ᯨ᪮ 
 ᪨ 祭,  ⠪   ᮬ:
	 Ŀ
	 ᪮  ன⢠:
	 			    
	 
  ⢥ 室  ᪮  (13 ᨬ)  "";

 ᫥ ⮣  :
	 Ŀ
	   ᪮ ᪠ : 
	 			    
	 

    ⢥  室    ᯥ䨪  䠩  ᪮ 
᪠;   믮    FilCsi    ⮬  
ᯮ짮  ᬮ ⠫  ..

 ᫥ ⮣   ᪮ ;

 室  ०   ᪨ ன⢠     
"2".

) "⬥ ᪮ /"

      㭪     믮   㤠   ᪨ 
, ᢮   ।  権;

    롮    㭪  ᢥ稢       ᯨ᪮ 
 ᪨ 祭;  ப   ᯮ 
 ⢥ ; ६   ^   v  뤥  ,
⨥  ""  㤠;

 ਬ   ᯨ᪮ ᪨ 祭:

	 Ŀ
	 log>phy:filnam.typ	  ப 
	 A  >fd :		
	 B  >hd7:		
	 ld3>hd3:demo  .dsk	
	 C  >hd2:		
	 EE >Hd7:system.dsk	
	 
